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Driver routines for 460 column copy rectangle COPY40.SRC 
OLAS" 32 8009 261 ld Cdest_li 33 
O1A6”"” 22 SO1A 262 ld Clast_d _a dshl 
01A9” §€D 58 8016 263 ld deyCfst_dest_addr) 
O1AD"° A7 264 and a 
OTAE” ~ FD 52 Z sbc hlyde snum_dest_bytes *= last_dest_addr - first _dest_addr + 1 
0180" 22 800C 266 ld Cnum_dest_bytes),hl 
0153’ 267 UDOCOPY: 
0183” Cd 00032: 268 call FIND_FIRST 
0186’ ED 53 80OTE 269 ld Cdo_first) ,de 
O1BA” 3A 8005 270 ld a, Cnum_rows) 
Giso~ 47 271 ld besa s;get number of rows to be copied 
VISE“ A IF UDORGW: >for row = 1 to num_rows 
OABE* ¢5 273 push be 
O1BF” 2A 8014 274 ld hl,Cfst_sre_addr) 
O22" 22-8010 Pde i ld Csre_row_addr),shl 
OCS": "ED SE.S00A 276 ld dey€num_sre_bytes) 
vice ws 277 add hl,de 
G14." 22 80278 278 ld Clast _sre_addr)shl 
01CD” 2A 8016 279 ld hl,Cfst_dest_addr) 
0100” 22 8012 280 ld Cdst_row_addr),hl 
103° €0D 58 800C 281 ld de,yCnum_dest_bytes) 
0107” 13 282 add hl,de 
0108” 22 BOTA 283 ld Clast_dest_addr),hl 
0108” 06 08 284 ld by 98 
0100’ 285 UDOSCANS: >for scan_line = 1 to 8 
Gite: - os 286 push be 
01DE” ZA 8014 287 ld hl,Cfst_src_addr) s;call procedure to handle entire line up to 
viET” ED 58. 8016 288 ld de,Cfst_dest_addr) ;but not including the byte containing the 
Le>”6°6=—CO OO ee SUTE 289 ld ix,Cdo_first) +;start of the last column 
OLES9” CD 0264 290 call call_ix 
OLEC” <Z2A- 8012 oo. ld hl,Clast_sre_addr) *call procedure to handle the byteCs) 
tLe, =~ OE Oe Sein 292 ld de,Clast_dest._addr) scontaining the last column 
CiFrs:”. BE 2ZAnsOrTc 293 ld ixsCdo_last) 
G2F7” €D 02645 294 Pelt ,oR Et. Tx 
OLFA” “ZA BOIS 295 Id hl,Cfst_dest_addr) 
Otro".  2£2--02790 296 ld de ,100H ;next scan line - subtract 100H from: 
GapC", T9 297 add hl,de ; fst_dest_addr 
G2en  -2e SOTS 298 Id Cfst_dest_addr) ,hl ; fst_sre_addr 
0204" 2A 8014 299 ld hl,Cfstusre_addr) H last_sre_addr 
Jeu, 19 300 add hlyde ; last_dest_addr 
O20S"” 22) FOULS 301 ld Cfst isre_addr),hl 
0208” ZA 8018 302 ld hl,Clast_sre_addr) 
O2Z0E° 19 303 add hi,de 
UZUF~ 22 8018 304 ld Clas 
C222 ZA 801A 305 ld h1,¢ 
C215" 19 306 add hl, 
0216” 22 BO1A 307 1d Clas 
C229") “Cs 308 pop be 
G2280- FEeC1 309 djnz UDGSCAN 
eau: Cu G22sa” 310 call UDONXTROW s;if no more scan linesy set up for next row 
GZT1t* C4 311 pop be 
C220.) .20 29C siz djnz UOOROW sreturn Cexit if no more rows to copy 
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